home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
fb386
/
egcg2
/
g22.bas
< prev
next >
Wrap
BASIC Source File
|
1991-10-18
|
390b
|
18 lines
100 ' G22 T.WAKAMATSU
110 PI=3.14159!:C=2:CLS
120 PSET(320,479)
130 A=100:B=145
140 FOR T=0 TO 2*PI STEP PI/96
150 C=5-C
160 X=239*SIN(A*T)+320
170 Y=239*COS(B*T)+240
180 LINE -(X,Y),PSET,%C
190 NEXT T
200 FOR D=1 TO 7000:NEXT D
210 PSET(320,479)
220 FOR T=0 TO 2*PI STEP PI/96
230 X=239*SIN(A*T)+320
240 Y=239*COS(B*T)+240
250 LINE -(X,Y),PSET,0
260 NEXT T